home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / ACCOUNT.PRG < prev    next >
Text File  |  1980-01-01  |  3KB  |  93 lines
  1. *
  2. * ACCOUNT
  3. * ACCOUNTING SYSTEM BASED ON DOME 612
  4. * OPERATOR ACTION WILL BE ALPHA CHARACTER
  5. * OUTER DO ALLOWS RETURN TO MENU FROM LOWER LEVEL MENUS
  6. SET HEADING OFF
  7. SET SAFETY OFF
  8. SET STATUS OFF
  9. DO WHILE (1=1)
  10. SET TALK OFF
  11. SET BELL OFF
  12. CLEAR ALL
  13. STORE " " TO OPINPUT
  14. *
  15. *===============================START MODS: 1================================*
  16. * SET LEFT AND TOP MARGINS FOR MENU
  17. STORE 20 TO LEFTMARG
  18. STORE  2 TO TOPMARG
  19. *==================================END MODS==================================*
  20. *
  21. *
  22. *===============================START MODS: 2================================*
  23. * SET HIGHEST OPTION LETTER, THEN PROVIDE HEADING AND OPTION LABELS
  24. DO WHILE OPINPUT<"A".OR.OPINPUT>"L"
  25.    CLEAR
  26.    @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  27.    @ TOPMARG+2,LEFTMARG+9 SAY ">> Accounting System <<"
  28.    @ TOPMARG+4,LEFTMARG SAY "A. CHART OF ACCOUNTS File Maintenance"
  29.    @ TOPMARG+5,LEFTMARG SAY "B. ACCOUNTS PAYABLE File Maintenance"
  30.    @ TOPMARG+6,LEFTMARG SAY "C. ACCOUNTS RECEIVABLE File Maintenance"
  31.    @ TOPMARG+7,LEFTMARG SAY "D. PAY BILLS and Post Expenses"
  32.    @ TOPMARG+8,LEFTMARG SAY "E. PROCESS RECEIPTS and Post Income"
  33.    @ TOPMARG+9,LEFTMARG SAY "F. Print ACCOUNTS RECEIVABLE Report"
  34.    @ TOPMARG+10,LEFTMARG SAY "G. ACCOUNTS PAYABLE File Cleanup"
  35.    @ TOPMARG+11,LEFTMARG SAY "H. ACCOUNTS RECEIVABLE File Cleanup"
  36.    @ TOPMARG+12,LEFTMARG SAY "I. CLEAR ACCOUNTS -- End Fiscal Year"
  37.    @ TOPMARG+13,LEFTMARG SAY "J. Print PAYABLES TRANSACTION Summary"
  38.    @ TOPMARG+14,LEFTMARG SAY "K. Print ACCOUNTING SUMMARY Report"
  39.    @ TOPMARG+15,LEFTMARG SAY "L. Return to SYSTEM MENU"
  40.    @ TOPMARG+17,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
  41.      GET OPINPUT
  42. *=================================END MODS===================================*
  43. *
  44.    READ
  45.    STORE UPPER(OPINPUT) TO OPINPUT
  46. ENDDO
  47. *
  48. *==============================START MODS: 3=================================*
  49. * PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
  50. DO CASE
  51.    CASE OPINPUT="A"
  52.       DO CHARTMNT
  53.    CASE OPINPUT="B"
  54.       DO PAYMNT
  55.    CASE OPINPUT="C"
  56.       DO RECMNT
  57.    CASE OPINPUT="D"
  58.       DO PAYBILLS
  59.    CASE OPINPUT="E"
  60.       DO RECEIPTS
  61.    CASE OPINPUT="F"
  62.       DO RECEIVE
  63.    CASE OPINPUT="G"
  64.       DO APREPACK
  65.    CASE OPINPUT="H"
  66.       DO ARREPACK
  67.    CASE OPINPUT="I"
  68.       DO ACLEAR
  69.    CASE OPINPUT="J"
  70.       DO APTRANS
  71.    CASE OPINPUT="K"
  72.       DO ASUMM
  73.    CASE OPINPUT="L"
  74.       RETURN
  75. *=================================END MODS===================================*
  76. *
  77.    OTHERWISE
  78.       CANCEL
  79. ENDCASE
  80. * REDISPLAY MENU
  81. ENDDO
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.